#!/usr/bin/env perl

#获取半径
print "input \$r\n";
chomp($r = <STDIN>);

#如果输入半径为负数，则返回0
if ($r < 0) {
    $r = 0;
}

#计算圆周长
$c = $r * 2 * 3.141592654;

#打印结果
print "$c\n";
